home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Context Menu Options 3.xpl < prev    next >
Text File  |  2001-05-14  |  3KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Files&Folders\Folders Context Menu"
  5. "UIPATH 2"="Appearance\Files&Folders\Drives"
  6. "NAME"="DOS prompt here Context Menu"
  7. "VERSION"="3.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "DOS Prompt Here" command for directories"
  10. "TEXT 2"="Enable "DOS Prompt Here" command for drive root"
  11. "DESCRIPTION 1"="This option lets you add a "DOS Prompt Here" option to the context menus of folders and drive root folders respectively."
  12. "DESCRIPTION 2"="When you click on this option, a Command Prompt (MS-DOS Prompt in Windows 95/98) is opened at this folder, for example, if you clicked on this option in the X:\X-Setup folder, a command window will appear at X:\X-Setup."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Item "drive root" added by Pierre Szwarc"
  17. "COMMENT 2"="Thanks to Josef Angstenberger [mailto:josef@jtxa.de] for the drive DOS Prompt idea!"
  18. "COMMENT 3"="Win9x/Me fix and new description implemented by Neil R. Turner [totalxs@hotmail.com]"
  19. "COMMENT 4"="WinXP fix implemented by CptSiskoX"
  20.  
  21.  
  22. sName="DOS &Prompt Here"
  23.  
  24. sP1_A="HKCR\Directory\Shell\DosHere"
  25. sP1_B="HKCR\Directory\Shell\DosHere\Command"
  26.  
  27. sP2_A="HKCR\Drive\Shell\DosHere"
  28. sP2_B="HKCR\Drive\Shell\DosHere\Command"
  29.  
  30. Sub Plugin_Initialize 
  31.  s=RegReadValue(sP1_B & "\@")
  32.  if Len(s)>0 then
  33.     SetUIElement 1,true
  34.  end if 
  35.  
  36.  s=RegReadValue(sP2_B & "\@")
  37.  if Len(s)>0 then
  38.     SetUIElement 2,true
  39.  end if 
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  s=BuildCommandString
  44.  
  45.  if GetUIElement(1)=true then
  46.     Call RegWriteValue(sp1_A & "\@",sName,1)
  47.     Call RegWriteValue(sp1_B & "\@",s,1)
  48.  else 'Disable it!
  49.     if RegPathExists(sP1_B) then Call RegDeletePath(sP1_B)
  50.     if RegPathExists(sP1_A) then Call RegDeletePath(sP1_A)
  51.  end if
  52.  
  53.  if GetUIElement(2)=true then
  54.     Call RegWriteValue(sp2_A & "\@",sName,1)
  55.     Call RegWriteValue(sp2_B & "\@",s,1)
  56.  else 'Disable it!
  57.     if RegPathExists(sP2_B) then Call RegDeletePath(sP2_B)
  58.     if RegPathExists(sP2_A) then Call RegDeletePath(sP2_A)
  59.  end if
  60.  
  61.  
  62. End Sub
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67. Function BuildCommandString
  68.  csVer=GetWinVer
  69.  if csVer=1 or csVer=3 or csVer=5 then 'Windows 95/98/ME
  70.     csPath=GetWinDir
  71.     csPath=csPath & "command.com /k cd ""%1"""
  72.  else 'NT/2K/XP
  73.     csPath=GetWinSysDir
  74.     csPath=csPath & "cmd.exe /k cd ""%1"""
  75.  end if    
  76.  
  77.  BuildCommandString=csPath
  78. End Function